home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MYMUD21.ZIP / MMUD21.ZIP / SOURCE / SOURCE.ZIP / DUMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-21  |  1.3 KB  |  54 lines
  1. Program DumpIDX;
  2. Uses Header;
  3.  
  4. Const ObjTxt : Array[0..4] of String[10] =
  5.                ('ROOM','THING','EXIT','PLAYER','DRONE');
  6.       LevTxt : Array[0..4] Of String[10] =
  7.                ('GUEST','PLAYER','BUILDER','WIZARD','GOD');
  8.  
  9.  
  10. Var Inp : File of ObjRecord;
  11.     Rec : ObjRecord;
  12.     Out : Text;
  13.  
  14. Begin
  15. Assign(Inp,ParamStr(1)+'.IDX');
  16. Reset(Inp);
  17. If IoResult<>0
  18.    Then Halt;
  19.  
  20. Assign(Out,ParamStr(1)+'.DMP');
  21. Rewrite(Out);
  22. If IoResult<>0
  23.    Then Begin
  24.         Close(Inp);
  25.         Halt;
  26.         End;
  27.  
  28. While Not Eof(Inp) Do
  29.  Begin
  30.  Read(Inp,Rec);
  31.  WriteLn(Out,'#',FilePos(Inp)-1);
  32.  With Rec Do
  33.   Begin
  34.   WriteLn(Out,' NAME=     ',Name);
  35.   WriteLn(Out,' PASSWORD= ',Password);
  36.   WriteLn(Out,' KEY=      ',Key);
  37.   WriteLn(Out,' LOCATION= ',Location);
  38.   WriteLn(Out,' CONTENTS= ',Contents);
  39.   WriteLn(Out,' NEXT=     ',Next);
  40.   WriteLn(Out,' EXITS=    ',Exits);
  41.   WriteLn(Out,' OWNER=    ',Owner);
  42.   Writeln(Out,' PENNIES=  ',Pennies);
  43.   WriteLn(Out,' TYPE=     ',ObjTxt[ObjType]);
  44.   WriteLn(Out,' LEVEL=    ',LevTxt[ObjLevel]);
  45.   WriteLn(Out,' SEX=      ',Sex);
  46.   WriteLn(Out,' GENFLAG=  ',GenFlags);
  47.   WriteLn(Out,' ATTRFLAG= ',Attr_Flags);
  48.   WriteLn(Out,' ROOMFLAG= ',Room_Flags);
  49.   WriteLn(Out);
  50.   End;
  51.  End;
  52. Close(Inp);
  53. Close(Out);
  54. End.